1 PRINTCHR$(142):PRINTCHR$(8):POKE50257,20:V=53248:POKEV+21,0:GOTO5 3 POKE211,S:POKE214,Z:SYS58640:PRINT"";:RETURN 5 T=54272:FORI=TTOT+28:NEXT:GOSUB50000:V$=CHR$(34) 10 GOSUB30000:REMTITEL 15 V=53248:POKEV+32,15:POKEV+33,15:IN=1:GOSUB20000:PRINTCHR$(142);CHR$(8); 20 GOSUB25000:REMINHALT 50 ONINGOSUB1000,2000,3000,4000,5000,6000,7000,8000,9000,10000,11000,12000,13000 60 IFIN>13THENON(IN-13)GOSUB14000,15000,16000,17000 70 IFIN>17ORIN=0THENCLR:GOTO5 100 GOTO50 1000 REM TEIL 1: DER BAUSTEIN AN SICH 1010 PRINTZ$;:V=53248:POKEV+16,0:X=0 1020 PRINT"[144][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"; 1030 PRINT"[144][221] [213][192][192][192][192][192][192][192][192][192][201] [213][192][192][201][144] [221]"; 1040 PRINT"[144][221] [202][192][192][192][192][192][192][192][192][192][203] [202][192][192][203] [221]"; 1050 REMPRINT"[144][221] [221]"; 1060 PRINT"[144][221] [221]"; 1070 PRINT"[144][221] [221]"; 1080 PRINT"[144][221][155] [149]_ 1 2 3 4 5 6 7 8 9 0 + - \ C D[155] [149]F1[144][146] [221]"; 1090 PRINT"[144][221] [149]CT Q W E R T Y U I O P @ * ^ RE[155] [149]F3[144][146] [221]"; 1100 PRINT"[144][221] [149]R S A S D F G H J K L : ; = RET[155] [149]F5[155][146][144] [221]"; 1110 PRINT"[144][221] [149]@ SH Z X C V B N M , . / SH ^ _[146] F7[144][146] [221]"; 1120 PRINT"[144][221] [149] [146][144] [221]"; 1130 PRINT"[144][221] [221]"; 1140 PRINT"[144][202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"; 1200 PRINT:PRINT"[144]DER VIDEO-CHIP KONTROLLIERT DAS FERNSEH-BZW. MONITORBILD IHRES C 64" 1210 PRINT:PRINT"ER SITZT (MEISTENS) UNTER DEM "; 1230 PRINT"'R' IN","EINEM BLECHGEHAEUSE UND IST ETWA SO ","GROSS WIE DIE "; 1235 PRINT"'RETURN'-TASTE" 1300 POKEV+21,1:POKE2040,13:POKEV+29,1:POKEV+23,1:POKEV,125:POKEV+1,070:POKEV+39,6 1305 IFX<2THENJ=10:GOSUB40200 1310 FORT=0TO600:NEXT 1320 IFX<2THENPOKEV+21,0:FORT=0TO100:NEXT:X=X+1 1325 Z=24:S=14:GOSUB3:PRINT" V ";:Z=24:S=25:GOSUB3:PRINT" Z "; 1326 Z=24:S=34:GOSUB3:PRINT" * "; 1330 GETW$:IFW$="V"ORW$="Z"ORW$="*"THEN1994 1340 FORT=0TO200:NEXT:Z=24:S=14:GOSUB3:PRINT" V [146]";:Z=24:S=25:GOSUB3:PRINT" Z [146]"; 1345 Z=24:S=34:GOSUB3:PRINT" * [146]"; 1350 FORT=0TO180:NEXT:GOTO1300 1990 GOSUB60000 1992 GOTO1995 1994 GOSUB60010 1995 RETURN 2000 REM DER CHIP 2010 PRINTZ$;:PRINT:PRINT:PRINT"[144]DER CHIP SIEHT - VEREINFACHT - SO AUS:" :PRINT 2020 PRINT:PRINT 2030 PRINT"[144][169] [146][169][165] CIRKA" 2040 PRINT"[169] [146][169]VIC 6569[169] [146][169] [165]" 2050 PRINT"[169] [146][169] [206] 8-FACHE" 2060 PRINT"[151] [146][144] [206]" 2070 PRINT"[151] [146][144][206] VERGROESSERUNG" 2080 PRINT"[194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194]" 2090 PRINT 2100 PRINT:PRINT:PRINT 2110 PRINT"WIE EIN KAEFER MIT 40 BEINEN":FORT=0TO800:NEXT 2200 Z=13:S=2:GOSUB3:PRINT"[206]":J=9:GOSUB40200:FORT=0TO500:NEXT:J=7:GOSUB40200 2210 Z=13:S=2:GOSUB3:PRINT"[194]"; 2990 GOSUB60000 2995 RETURN 3000 REM REGISTER 3010 PRINTZ$;"[144]":PRINT"DER VIC HAT 47 SPEICHER ("CHR$(34)"REGISTER"CHR$(34)"),", 3020 PRINT"DIE VOM PROGRAMMIERER ANGESPROCHEN":PRINT"WERDEN KOENNEN.":PRINT 3030 PRINT"DAS REGISTER NR.0 HAT IM C-64-SPEICHER":PRINT"DIE NUMMER ("CHR$(34); 3032 PRINT"ADRESSE"CHR$(34);")"; 3035 PRINT" 53248,":PRINT"REGISTER NR.1 = 53249 USW.":PRINT:PRINT:PRINT 3040 PRINT"EIN REGISTER BESTEHT AUS 8 BITS = 1 BYTE":PRINT 3050 FOR J=7TO0STEP-1 3060 PRINT"[181] [182][157][157][157][157][157][204][185][185][185][186][157][157][157][157]"J"[145][145]";:GOSUB40200:FORT=0TO199:NEXT 3070 NEXTJ:PRINT:PRINT:PRINT"" 3080 PRINT"(AUF DEN SEITEN 4 BIS 10 FINDEN SIE EINE";:PRINT"EINFUEHRUNG IN DAS"; 3090 PRINT"[160]THEMA "CHR$(34)"BITS & BYTES"CHR$(34)")[144]" 3990 GOSUB60000 3995 RETURN 4000 REM BITS EIN/AUS 4010 PRINTZ$;"[144]":PRINT:PRINT:V=53248:ZZ=0:X=0 4020 FOR J=7TO0STEP-1 4030 PRINT"[181] [182][157][157][157][157][157][204][185][185][185][186][157][157][157][157]"J"[145][145]";:GOSUB40200:FORT=0TO99:NEXTT 4040 NEXTJ:PRINT:PRINT 4050 FORI=2040TO2047:POKEI,11:NEXT:POKEV+23,0:POKEV+29,0 4070 POKEV+14,32:POKEV+12,72:POKEV+10,112:POKEV+8,152:POKEV+6,192:POKEV+4,232 4080 POKEV+16,2^0+2^1:POKEV+2,16:POKEV+0,56 4090 FORI=1TO15STEP2:POKEV+I,50:NEXT 4100 FORI=39TO46:POKEV+I,6:NEXT 4105 PRINT:PRINT 4110 PRINT"EIN BIT KANN GESETZT (=1) ODER":PRINT"GELOESCHT (=0) SEIN":PRINT 4115 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT"" 4120 Z=21:S=0:GOSUB3:PRINT"PROBIEREN SIE DOCH MAL AUS!" 4125 PRINT"TASTEN 0-7: SETZEN/ SHIFT 0-7: LOESCHEN[146][144]" 4130 GETW$:IFW$=""ANDX=0THENFORT=0TO300:NEXT:GOTO4996 4131 IFW$=""THEN4130 4132 IFPEEK(653)THEN4300 4135 IFW$="V"ORW$="Z"ORW$="*"THEN4994 4140 IFASC(W$)<48ORASC(W$)>55THEN4130 4180 SP=ASC(W$)-47:X=1 4190 POKEV+21,PEEK(V+21)OR2^(SP-1) 4200 FORI=30TO91:POKEV+SP*2-1,I:NEXT:GOSUB40100 4210 DZ=0:FORI=15TO1STEP-2 4220 DZ=2*DZ+(PEEK(V+I)=91) 4225 NEXT 4230 POKE211,09:POKE214,14:SYS58640:PRINT"BYTE-WERT= [157][157][157][157][157]";-DZ;"[157] [146][144]":PRINT:PRINT 4290 GOTO4400 4300 IFASC(W$)<32ORASC(W$)>48THEN4130 4302 IFASC(W$)>39ANDASC(W$)<>48THEN4130 4305 SP=ASC(W$)-31:IFSP>9THENSP=1 4310 FORI=91TO30STEP-1:POKEV+SP*2-1,I:NEXT:J=10:GOSUB40200 4320 POKEV+21,PEEK(V+21)AND(255-2^(SP-1)) 4330 DZ=0:FORI=15TO1STEP-2 4340 DZ=2*DZ+(PEEK(V+I)=91) 4345 NEXT 4350 POKE211,09:POKE214,14:SYS58640:PRINT"BYTE-WERT= [157][157][157][157][157]";-DZ;"[157] [146][144]":PRINT:PRINT 4390 REM SPRITE LOESCHEN ENDE 4400 PRINT"MIT 8 BITS (= 1 BYTE) LASSEN SICH ZAHLEN ZWISCHEN 0 UND 255 DARSTELLEN" 4450 GOTO4130 4990 GOSUB60000 4992 GOTO4995 4994 GOSUB60010 4995 RETURN 4996 Z=19:S=0:GOSUB3:PRINT"[205][205][165][157][157][183]";:FORT=0TO300:NEXT 4997 Z=19:S=0:GOSUB3:PRINT"[144]  [157][157] ";:FORT=0TO100:NEXT:GOTO4130 5000 PRINTZ$;:PRINT:PRINT 5010 PRINT"[155]":FORJ=7TO0STEP-1 5020 PRINT"[181] [182][157][157][157][157][157][204][185][185][185][186][157][157][157][157]"J"[145][145]";:IFJ=1THENPRINT"[144]";:GOSUB40200 5030 NEXT:PRINT:PRINT:PRINT 5040 PRINT"EIN BIT IST GESETZT WERT = 1[146][144]" 5050 POKEV+21,1:FORI=50TO91:POKEV+1,I:NEXT:GOSUB40100:FORT=0TO2000:NEXT 5060 PRINT:PRINT"ODER GELOESCHT WERT = 0 [146][144]" 5080 FORI=91TO50:POKEV+15,I:NEXT:J=1:GOSUB40200:POKEV+21,0:FORT=0TO2000:NEXT 5090 PRINT:PRINT"WIR WOLLEN NATUERLICH NICHT NUR":PRINT"BIS EINS ZAEHLEN. ":PRINT 5100 PRINT"NEHMEN WIR EIN ZWEITES BIT.":PRINT"[155]";:FORJ=7TO0STEP-1 5110 PRINT"[181] [182][157][157][157][157][157][204][185][185][185][186][157][157][157][157]"J"[145][145]";:IFJ=2THENPRINT"[144]";:GOSUB40200 5120 NEXT:FORT=0TO2000:NEXT 5130 POKE211,00:POKE214,18:SYS58640:PRINT"IST DAS ERSTE BIT VOLL ..."; 5140 POKEV+21,1:FORI=50TO91:POKEV+1,I:NEXT:GOSUB40100:PRINT"WERT = 1[146][144]" 5145 FORT=0TO2000:NEXT:PRINT 5150 PRINT"... UND WIR ZAEHLEN 1 WEITER";:FORT=0TO1000:NEXT 5160 FORI=91TO50STEP-1:POKEV+1,I:NEXT:POKEV+21,2:FORI=50TO91:POKEV+3,I:NEXT 5170 GOSUB40100:FORT=0TO1000:NEXT:PRINT" WERT = 2[146][144]":FORT=0TO100:NEXT 5180 PRINT:PRINT"SPRINGT ES EINE STELLE WEITER"; 5990 GOSUB60000 5995 RETURN 6000 PRINTZ$:PRINT"[144]":PRINT"SIE KENNEN DIESEN":PRINT"STELLENSPRUNG AUS" 6001 V=53248 6010 PRINT"DEM "CHR$(34)"NORMALEN"CHR$(34):PRINT"ZAHLENSYSTEM" 6020 FORI=4TO21:S=30:Z=I:GOSUB3:PRINT"[181] [182][181] [182]";:NEXT 6030 S=30:Z=22:GOSUB3:PRINT"[204][183][183][183][146][186][204][183][183][183][146][186]"; 6040 S=0:Z=9:GOSUB3:PRINT"SIE ZAEHLEN BIS "CHR$(34)"9"CHR$(34) 6050 FORI=0TO9:S=21:Z=9:GOSUB3:PRINT" [157][157]"I"[146][144]"; 6060 IFI>OTHENS=36:Z=23-2*I:GOSUB3:PRINT" [145][157][157][157][183][183][183]";:GOSUB40100 6070 FORT=0TO500:NEXTT 6080 NEXTI 6100 S=0:Z=11:GOSUB3:PRINT"[146][144]BEI "V$"10"V$:PRINT"STELLENSPRUNG 10[146][144]"; 6110 FORI=0TO09:S=36:Z=21-2*I:GOSUB3:PRINT" [145][157][157][157] ";:NEXT 6120 POKEV+21,2:FORI=80TO215:POKEV+3,I:NEXT:GOSUB40100 6150 S=0:Z=15:GOSUB3:PRINT"DIE RECHTE STELLE":PRINT"WIRD LEER (=0)" 6160 PRINT:PRINT"DAHER DER NAME":PRINT"[145]"V$"ZEHNER-SYSTEM"V$:PRINT"(ODER: DEZIMALSYSTEM)" 6990 GOSUB60000 6995 RETURN 7000 PRINTZ$"[144]":V=53248:SE=123:X=0 7010 PRINT:PRINT"MIT "V$"BITS"V$" UND "V$"BYTES"V$"[160]WIRD IM":PRINTV$"ZWEIER-SYSTEM"V$; 7020 PRINT"[160](ODER: DUAL-SYSTEM)" 7030 PRINT"GEZAEHLT":PRINT:PRINT 7050 FOR J=7TO0STEP-1 7060 PRINT"[181] [182][157][157][157][157][157][204][185][185][185][186][157][157][157][157]"J"[145][145]";:GOSUB40200 7070 NEXTJ:PRINT:PRINT 7080 Z=14:S=12:GOSUB3:PRINT" [157][157][157]BYTE-WERT = 0[146][144]":FORT=0TO2500:NEXT 7090 Z=16:S=0:GOSUB3:PRINT"UND EINEN DAZU" 7100 POKEV+21,1:FORI=50TOSE:POKEV+1,I:NEXT:GOSUB40100 7110 Z=14:S=12:GOSUB3:PRINT" [157][157][157]BYTE-WERT = 1[146][144]":FORT=0TO2500:NEXT 7120 Z=16:S=0:GOSUB3:PRINT"UND NOCH EINEN ..." 7125 FORI=SETO50STEP-1:POKEV+1,I:NEXT:POKEV+21,2:FORI=50TOSE:POKEV+3,I:NEXT 7126 GOSUB40100 7130 Z=14:S=12:GOSUB3:PRINT" [157][157][157]BYTE-WERT = 2[146][144]":FORT=0TO100:NEXT 7135 Z=17:S=0:GOSUB3:PRINT"STELLENSPRUNG IN BIT 1":FORT=0TO2500:NEXT 7140 Z=16:S=0:GOSUB3:PRINT"UND NOCH EINEN ..." 7150 POKEV+21,1+2:FORI=50TOSE:POKEV+1,I:NEXT:GOSUB40100 7160 Z=14:S=12:GOSUB3:PRINT" [157][157][157]BYTE-WERT = 3[146][144]":FORT=0TO100:NEXT 7170 Z=17:S=0:GOSUB3:PRINT"KEIN STELLENSPRUNG ":FORT=0TO2500:NEXT 7180 Z=16:S=0:GOSUB3:PRINT"UND NOCH EINEN ..." 7190 FORI=SETO50:POKEV+1,I:POKEV+3,I:NEXT:POKEV+21,4 7200 FORI=50TOSE:POKEV+5,I:NEXT:GOSUB40100 7210 Z=14:S=12:GOSUB3:PRINT" [157][157][157]BYTE-WERT = 4[146][144]":FORT=0TO100:NEXT 7220 Z=17:S=0:GOSUB3:PRINT"STELLENSPRUNG AUS BIT 0 & 1 IN BIT 2" 7230 FORT=0TO2500:NEXT 7300 S=4:Z=21:GOSUB3:PRINT"SIE KOENNEN JETZT MIT '+' UM 1" 7310 PRINT"ERHOEHEN, MIT '-' UM 1 VERMINDERN[144]":DZ=4 7320 FORI=1TO15STEP2:POKEV+I,SE:NEXT 7350 GETW$:IFW$="V"ORW$="Z"ORW$="*"THEN7994 7360 IFW$="+"ORW$="-"THENX=1:GOTO7390 7370 IFW$=""ANDX=0THENFORT=0TO300:NEXT:GOTO7996 7380 GOTO7350 7390 Z=14:S=0:GOSUB3:FORI=0TO160:PRINT" ";:NEXT 7395 IFW$="-"THEN7600 7400 DZ=DZ+1:IFDZ>255THENDZ=255:GOTO73507370 7410 POKEV+21,DZ:GOSUB40100 7420 Z=16:S=12:GOSUB3:PRINT"BYTE-WERT = [157][157][157][157]"DZ"[146][144]" 7500 GOTO7350 7600 DZ=DZ-1:IFDZ<0THENDZ=0 7610 POKEV+21,DZ:J=10:GOSUB40200 7620 Z=16:S=12:GOSUB3:PRINT"BYTE-WERT = [157][157][157][157]"DZ"[146][144]" 7700 GOTO7350 7990 GOSUB60000 7992 GOTO7995 7994 GOSUB60010 7995 RETURN 7996 Z=19:S=0:GOSUB3:PRINT"[205][205][165][157][157][183]";:FORT=0TO300:NEXT 7997 Z=19:S=0:GOSUB3:PRINT"[144]  [157][157] ";:GOTO7300 8000 PRINTZ$"[144]":V=53248:FORI=1TO15STEP2:POKEV+I,99:NEXT 8010 PRINT"NUN EIN KLEIN WENIG MATHEMATIK:":PRINT:PRINT 8020 FOR J=7TO0STEP-1:J$=STR$(J):J$=RIGHT$(J$,1) 8030 PRINT"[181] [182][157][157][157][157][157][204][185][185][185][186][157][157][157][157]2^"J$"[145][145]";:GOSUB40200 8040 NEXTJ: 8050 PRINT:PRINT:PRINT"[158] 128 64 32 16 8 4 2 1 [146][144]";:PRINT 8060 PRINT:PRINT"IM DUAL-SYSTEM HAT DIE RECHTE STELLE" 8065 PRINT"DEN WERT 1*2^0 (GESETZT)" 8070 PRINT"ODER 0*2^0 (GELOESCHT) - ALSO 1 ODER 0":PRINT 8080 PRINT"DIE NAECHSTE STELLE 1*2^1 ODER 0*2^1 - ":PRINT"ALSO 2 ODER 0."; 8090 PRINT" (SIEHE BILD)" :PRINT:FORT=0TO500:NEXT 8100 POKEV+21,1:GOSUB40100:POKEV+21,5:GOSUB40100:FORT=0TO500:NEXT 8110 PRINT"IM BILD: 2^0 = 1" 8120 PRINT" + 2^2 = 4" 8130 PRINT" [163][163][163][163][163][163][163][163][163]" 8140 PRINT" BYTE-WERT = 5[146][144]" 8990 GOSUB60000 8995 RETURN 9000 PRINTZ$"[144]":V=53248:X=0:XX=0 9010 PRINT"LASSEN SIE UNS RECHNEN:":PRINT:PRINT 9020 FOR J=7TO0STEP-1:J$=STR$(J):J$=RIGHT$(J$,1) 9030 PRINT"[181] [182][157][157][157][157][157][204][185][185][185][186][157][157][157][157]2^"J$"[145][145]";:GOSUB40200 9040 NEXTJ: 9050 PRINT:PRINT:PRINT"[158] 128 64 32 16 8 4 2 1 [146][144]";:PRINT:PRINT 9060 Z=14:S=0:GOSUB3:PRINT"SETZEN SIE DOCH EINMAL DIE ZAHL: "; 9065 FORI=1TO15STEP2:POKEV+I,30:NEXT:X=0 9070 ZA=INT(RND(1)*255):PRINT" [157][157][157][157][157][157]"ZA; 9080 Z=21:S=0:GOSUB3:PRINT"[146]SETZEN MIT DEN TASTEN 0-7" 9090 PRINT"LOESCHEN MIT'SHIFT' 0-7" 9100 GETW$:IFW$=""ANDXX=0THEN9996 9105 IFW$=""THEN9100 9110 IFPEEK(653)THEN9300 9120 IFW$="V"ORW$="Z"ORW$="*"THEN9994 9140 IFASC(W$)<48ORASC(W$)>55THEN9100 9180 SP=ASC(W$)-47:XX=1 9190 POKEV+21,PEEK(V+21)OR2^(SP-1) 9200 FORI=30TO99:POKEV+SP*2-1,I:NEXT:GOSUB40100 9210 DZ=0:FORI=15TO1STEP-2 9220 DZ=2*DZ+(PEEK(V+I)=99) 9225 NEXT 9230 DZ=-DZ:Z=17:S=0:GOSUB3:PRINT"AKTUELLER BYTE-WERT = [157][157][157][157][157][157][157][157][157]"DZ; 9235 PRINT" [157][157][157][157] REST = [157][157][157][157][157][157]";ZA-DZ 9240 IFDZ=ZATHENZ=19:S=0:GOSUB3:PRINT"GUT! SIE MUSSTEN "X"-MAL KORRIGIEREN.[144]":GOTO9260 9250 GOTO9299 9260 FORT=0TO4000:NEXT:Z=14:S=0:GOSUB3:FORI=0TO239:PRINT" ";:NEXT 9270 POKEV+21,0:FORT=0TO999:NEXT:GOTO9060 9299 GOTO9100 9300 IFASC(W$)<32ORASC(W$)>48THEN9100 9302 IFASC(W$)>39ANDASC(W$)<>48THEN9100 9305 X=X+1:SP=ASC(W$)-31:IFSP>9THENSP=1 9310 FORI=99TO30STEP-1:POKEV+SP*2-1,I:NEXT:J=10:GOSUB40200 9320 POKEV+21,PEEK(V+21)AND(255-2^(SP-1)) 9330 DZ=0:FORI=15TO1STEP-2 9340 DZ=2*DZ+(PEEK(V+I)=99):NEXT 9350 DZ=-DZ:Z=17:S=0:GOSUB3:PRINT"AKTUELLER BYTE-WERT = [157][157][157][157][157][157][157][157][157]"DZ; 9355 PRINT" [157][157][157][157] REST = [157][157][157][157][157]";ZA-DZ 9360 IFDZ=ZATHENZ=19:S=0:GOSUB3:PRINT"GUT! SIE MUSSTEN "X"-MAL KORRIGIEREN.[144]":GOTO9380 9370 GOTO9400 9380 FORT=0TO4000:NEXT:Z=14:S=0:GOSUB3:FORI=0TO239:PRINT" ";:NEXT 9390 POKEV+21,0:FORT=0TO999:NEXT:GOTO9060 9400 GOTO9100 9990 GOSUB60000 9992 GOTO9995 9994 GOSUB60010 9995 RETURN 9996 Z=19:S=0:GOSUB3:PRINT"[205][205][165][157][157][183]";:FORT=0TO300:NEXT 9997 Z=19:S=0:GOSUB3:PRINT"[144]  [157][157] ";:FORT=0TO200:NEXT:GOTO9100 10000 PRINTZ$"[144]":V=53248:POKEV+21,0:FORI=1TO15STEP2:POKEV+I,30:NEXT 10010 PRINT"UND JETZT DUALZAHLEN IN DEZIMALZAHLEN:":PRINT:PRINT 10020 FOR J=7TO0STEP-1:J$=STR$(J):J$=RIGHT$(J$,1) 10030 PRINT"[181] [182][157][157][157][157][157][204][185][185][185][186][157][157][157][157]2^"J$"[145][145]";:GOSUB40200 10040 NEXTJ 10045 PRINT:PRINT:PRINT"[158] 128 64 32 16 8 4 2 1 [146][144]";:PRINT:PRINT 10050 E=INT(RND(1)*5):FORI=1TOE 10060 W1=INT(RND(1)*7) 10070 POKEV+21,PEEK(V+21)OR2^W1:FORJ=30TO99:POKEV+2*W1+1,J:NEXT:GOSUB40100 10080 NEXTI:C=0 10100 DZ=0:FORI=15TO1STEP-2:DZ=2*DZ+(PEEK(V+I)=99):NEXTI:DZ=-DZ:DD=DZ 10110 B$="":FORI=0TO7:B$=STR$(DD-INT(DD/2)*2)+B$:DD=INT(DD/2):NEXT 10120 Z=10:S=0:GOSUB3:PRINT:PRINT:PRINT:PRINT"WANDELN SIE BITTE DIE OBEN ANGEZEIGTE" 10130 PRINT"DUALZAHL "B$"[146][144]" 10140 PRINT"IN EINE DEZIMALZAHL UM!":WW$="":X=0 10145 PRINT:PRINT"EINGABE MIT 'RETURN' BEENDEN[144]":Z=19:S=18:GOSUB3 10150 GETW$:POKE204,0:IFW$=""THEN10150 10160 IFPEEK(207)THEN10160 10165 POKE204,1 10170 IFW$="V"ORW$="Z"ORW$="*"THEN10994 10180 IFW$=CHR$(13)THEN10300 10190 IFASC(W$)<48ORASC(W$)>57THEN10150 10200 C=C+1:IFC<4THENPRINTW$;:WW$=WW$+W$:GOTO10150 10210 GOTO10150 10300 IFVAL(WW$)=DZTHENIFX=0THENPRINT" GUT!! SIE MUSSTEN NICHT KORRIGIEREN! 10305 [139][197](WW$)[178]DZ[167][139]X[177]0[167][153]" GUT!! SIE MUSSTEN"X"-MAL KORRIGIEREN." 10310 [139][197](WW$)[177]DZ[167][153]" ZU GROSS !!";:[129]T[178]0[164]1000:[130]:X[178]X[170]1:[137]10360 10320 [137]10340 10340 [139][197](WW$)[179]DZ[167][153]" ZU KLEIN !!";:[129]T[178]0[164]1000:[130]:X[178]X[170]1:[137]10360 10350 [137]10370 10360 Z[178]17:S[178]0:[141]3:[129]I[178]0[164]139:[153]" ";:[130]:WW$[178]"":C[178]0:Z[178]19:S[178]18:[141]3 10365 [137]10150 10370 [129]T[178]0[164]2000:[130]:[137]10000 10990 [141]60000 10992 [137]10995 10994 [141]60010 10995 [142] 11000 [153]Z$"STOP":V[178]53248:[129]I[178]1[164]15[169]2:[151]V[170]I,30:[130]:X[178]0 11005 [129]I[178]39[164]46:[151]V[170]I,0:[130] 11010 [153]"NUN ALSO DER VIDEO-CHIP:":[153]:[153] 11020 [129] J[178]7[164]0[169][171]1:J$[178][196](J):J$[178][201](J$,1) 11030 [153]"INT ABSCMDCMDCMDCMDCMD(null)POSPOSPOSSQRCMDCMDCMDCMD2^"J$"ONONSTOP";:[141]40200 11040 [130]J:[153]:[153]:[153]:[153] 11050 [153]"FANGEN WIR MIT REGISTER 17 AN" 11060 [153]"(REG. 17WAITSTOP = ADRESSE 53265WAITSTOP)" 11070 [151]V[170]21,1[170]2[170]8[170]16:[129]I[178]30[164]99:[151]V[170]1,I:[151]V[170]3,I:[151]V[170]7,I:[151]V[170]9,I 11080 [130]:[141]40100 11100 [153]:[153]"DIES IST DIE ORIGINALBELEGUNG - BEIM" 11110 [153]"AUSLESEN DURCH 'PEEK(53265)' ERHALTEN" 11120 [153]"SIE DEN WERT 27.":[153]"DIE BITS 0,1,3 UND 4 SIND GESETZT" 11130 [153]:[153]:[153]:[153]"LOESCHEN SIE DOCH MAL BIT 4!" 11140 [153]" (MIT 'SHIFT' 4)STOP" 11150 [161]W$:[139]W$[178]"V"[176]W$[178]"Z"[176]W$[178]"*"[167]11994 11160 [139]W$[178]""[175]X[178]0[167][129]T[178]0[164]300:[130]:[137]11996 11170 [139]W$[178]"$"[167]X[178]1:[137]11200 11180 [137]11150 11200 [151]V[170]17,[194](V[170]17)[171]16 11210 [129]I[178]0[164]20:J[178]I[173]2[170]10:[141]40200:[141]40100:[130]I 11220 [151]V[170]17,27 11230 Z[178]14:S[178]0:[141]3:[153]"STOP WIE SIE SAHEN, SAHEN SIE NICHTS. "; 11240 [153]" VALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVAL STOP" 11250 [153]" DENN BIT 4 IN DIESEM VIC-REGISTER" 11260 [153]" VALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVAL" 11270 [153]"STOPENTSCHEIDET UEBER BILDSCHIRM EIN- / AUS" 11280 [153]"VALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVAL" 11300 [137]11150 11990 [141]60000 11992 [137]11195 11994 [141]60010 11995 [142] 11996 Z[178]19:S[178]3:[141]3:[153]"(null)(null)FNCMDCMDUSR";:[129]T[178]0[164]300:[130] 11997 Z[178]19:S[178]3:[141]3:[153]"STOP  CMDCMD ";:[137]11150 12000 [153]Z$"STOP":V[178]53248:[129]I[178]1[164]15[169]2:[151]V[170]I,30:[130] 12005 [129]I[178]39[164]46:[151]V[170]I,0:[130] 12010 [153]"BETRACHTEN WIR DIE ANDEREN BITS":[153]:[153] 12020 [129] J[178]7[164]0[169][171]1:J$[178][196](J):J$[178][201](J$,1) 12030 [153]"INT ABSCMDCMDCMDCMDCMD(null)POSPOSPOSSQRCMDCMDCMDCMD2^"J$"ONONSTOP";:[141]40200 12040 [130]J:[151]V[170]21,27 12050 [153]:[153]:[153]:[153]" VIC-REGISTER 17WAITSTOP (ADRESSE 53265WAIT)STOP" 12055 [153]:[153]" WIR BETRACHTEN ZUNAECHST NUR BIT 0-4"; 12057 [153]" (DIE BITS 5-7 KOMMEN SPAETER DRAN) 12060 Z=21:S=0:GOSUB3:PRINT" EXPERIMENTIEREN SIE DOCH MAL!" 12070 PRINT"TASTEN 0-4: SETZEN, 'SHIFT' O-4:LOESCHEN";:POKEV+5,99 12080 F=99:POKEV+1,F:POKEV+3,F:POKEV+7,F:POKEV+9,F:POKEV+21,27:GOSUB40100:X=0 12100 GETW$:IFW$=""ANDX=0THEN12996 12105 IFW$=""THEN12100 12110 IFPEEK(653)THEN12300 12120 IFW$="V"ORW$="Z"ORW$="*"THEN12994 12130 IFASC(W$)<48ORASC(W$)>52THEN12100 12200 SP=ASC(W$)-48:X=1 12210 POKEV+21,PEEK(V+21)OR2^SP:GOSUB40100 12220 POKEV+17,PEEK(V+17)OR2^SP 12230 ONSP+1GOTO12240,12240,12240,12260,12280 12240 Z=12:S=0:GOSUB3:PRINT"DIE BITS 0-2 LEGEN DIE BILDSCHIRMVER-", 12242 PRINT"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197] [144]"; 12245 PRINT"SCHIEBUNG NACH OBEN ODER UNTEN FEST "; 12247 PRINT"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197] [144]";:GOTO12100 12260 Z=12:S=0:GOSUB3:PRINT" BIT 3 IST ZUSTAENDIG FUER ", 12262 PRINT" [197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197] [144]"; 12265 PRINT"DIE BILDSCHIRMGROESSE: 25 ODER 24 ZEILEN"; 12267 PRINT"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][144]";:GOTO12100 12280 Z=12:S=0:GOSUB3:PRINT" DAS KENNEN SIE SCHON .... ", 12282 PRINT" [197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197] [144]"; 12285 PRINT"BIT 4 REGIERT UEBER BILDSCHIRM AN/AUS "; 12287 PRINT"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197] [144]";:POKEV+21,PEEK(V+21)OR16 12290 GOTO12100 12300 IFASC(W$)<33ORASC(W$)>48THEN12100 12310 IFASC(W$)>36ANDASC(W$)<>48THEN12100 12400 X=1:SP=ASC(W$)-32:IFSP>4THENSP=0 12410 POKEV+21,PEEK(V+21)AND(255-2^SP):GOSUB40200 12420 POKEV+17,PEEK(V+17)AND(255-2^SP) 12430 ONSP+1GOTO12240,12240,12240,12260,12440 12440 POKEV+17,PEEK(V+17)AND(255-2^SP) 12450 FORI=0TO30:J=11:GOSUB40200:NEXT:POKEV+17,PEEK(V+17)OR2^SP:GOTO12280 12990 GOSUB60000 12992 GOTO12995 12994 GOSUB60010 12995 RETURN 12996 Z=18:S=0:GOSUB3:PRINT"[205][205][165][157][157][183]";:FORT=0TO300:NEXT 12997 Z=18:S=0:GOSUB3:PRINT"[144]  [157][157] ";:FORT=0TO200:NEXT:GOTO12100 13000 PRINTZ$"[144]":V=53248:FORI=15TO1STEP-2:POKEV+I,30:NEXT:C=0:WW$="" 13005 FORI=39TO46:POKEV+I,0:NEXT 13010 PRINT"ABER EIGENTLICH MUESSEN SIE JA "CHR$(34)"POKEN"CHR$(34):PRINT 13015 PRINT 13020 FOR J=7TO0STEP-1:J$=STR$(J):J$=RIGHT$(J$,1) 13030 PRINT"[181] [182][157][157][157][157][157][204][185][185][185][186][157][157][157][157]2^"J$"[145][145][144]";:GOSUB40200 13040 NEXTJ:F=99:FORI=1TO9STEP2:POKEV+I,F:NEXTI:POKEV+21,27 13050 PRINT:PRINT:PRINT"[158] 128 64 32 16 8 4 2 1 [146][144]"; 13060 PRINT:PRINT" VIC-REGISTER 17[144][146] (ADRESSE 53265[146])[144]":PRINT:PRINT 13070 PRINT"[144]VERSUCHEN WIR DAS DOCH MAL, DIE UMRECH-" 13080 PRINT"NUNG VON DUAL NACH DEZIMAL KENNEN SIE" 13090 Z=21:S=0:GOSUB3:PRINT" TIPPEN SIE BITTE IN DER FORM" 13095 PRINT"'POKE53265,WERT[146] RETURN'(WERT VON 0-31)[144]";:X=0 13097 Z=18:S=0:GOSUB3:FORI=0TO38:PRINT" ";:NEXT 13100 GETW$:Z=18:S=C:GOSUB3:POKE204,0:IFW$=""ANDX=0ANDNOTPEEK(207)THEN13996 13110 IFW$=""THEN13100 13120 IFW$="V"ORW$="Z"ORW$="*"THEN13994 13130 IFW$=CHR$(13)THEN13290 13150 IFW$=CHR$(20)ANDC=0THEN13100 13200 C=C+1:Z=18:S=C-1:GOSUB3:PRINT""W$"[144]";:X=1 13210 IFC>30THEN13000 13215 IFW$=CHR$(20)THENWW$=LEFT$(WW$,LEN(WW$)-1):C=C-2:GOTO13100 13220 WW$=WW$+W$:GOTO13100 13290 IFPEEK(207)THEN13290 13295 POKE204,1 13300 IFLEFT$(WW$,4)<>"POKE"ANDLEFT$(WW$,2)<>"P[207]"THENWW$="":C=0:GOTO13400 13310 IFLEFT$(WW$,2)="P[207]"THENWW$="POKE"+RIGHT$(WW$,LEN(WW$)-2) 13320 IFMID$(WW$,5,1)=" "THENWW$=LEFT$(WW$,4)+RIGHT$(WW$,LEN(WW$)-5):GOTO13320 13325 IFLEN(WW$)<11THENWW$="":C=0:GOTO13550 13330 IFMID$(WW$,5,5)<>"53265"THENWW$="":C=0:GOTO13450 13340 IFMID$(WW$,10,1)<>","THENWW$="":C=0:GOTO13500 13350 IFVAL(MID$(WW$,11,LEN(WW$)-10))>31THENWW$="":C=0:GOTO13550 13370 PO=VAL(MID$(WW$,11,LEN(WW$)-10)):POKE53265,PO:POKEV+21,PO 13380 IF(PEEK(53265)AND16)=0THENJ=11:FORI=0TO20:GOSUB40200:NEXT:GOTO13600 13390 C=0:WW$="":GOTO13097 13400 Z=19:S=0:GOSUB3:PRINT"S Y N T A X - F E H L E R !" 13410 FORI=OTO20:GOSUB40200:NEXT 13420 Z=19:S=0:GOSUB3:PRINT" ":GOTO13097 13450 Z=19:S=0:GOSUB3:PRINT"FALSCHE ADRESSE !" 13460 FORI=OTO20:GOSUB40200:NEXT 13470 Z=19:S=0:GOSUB3:PRINT" ":GOTO13097 13500 Z=19:S=0:GOSUB3:PRINT"DAS KOMMA FEHLT ! " 13510 FORI=OTO20:GOSUB40200:NEXT 13520 Z=19:S=0:GOSUB3:PRINT" ":GOTO13097 13550 Z=19:S=0:GOSUB3:PRINT"FALSCHE WERTANGABE ! " 13560 FORI=OTO20:GOSUB40200:NEXT 13570 Z=19:S=0:GOSUB3:PRINT" ":GOTO13097 13600 POKEV+21,PEEK(V+21)OR16:POKE53265,PEEK(53265)OR16:C=0:WW$="":GOTO13097 13990 GOSUB60000 13992 GOTO13995 13994 GOSUB60010 13995 RETURN 13996 POKE204,1:Z=19:S=0:GOSUB3:PRINT"[205][205][165][157][157][183]";:FORT=0TO300:NEXT 13997 Z=19:S=0:GOSUB3:PRINT"  [157][157] ";:FORT=0TO200:NEXT:GOTO13100 14000 PRINTZ$"[144]":V=53248:FORI=1TO15STEP2:POKEV+I,30:NEXT 14005 FORI=39TO46:POKEV+I,0:NEXT 14010 PRINT"WEITER IM VIDEO-CHIP:":PRINT:PRINT 14020 FOR J=7TO0STEP-1:J$=STR$(J):J$=RIGHT$(J$,1) 14030 PRINT"[181] [182][157][157][157][157][157][204][185][185][185][186][157][157][157][157]2^"J$"[145][145][144]";:GOSUB40200:NEXTJ:PRINT:PRINT:PRINT 14040 FORI=1TO7STEP2:POKEV+I,99:NEXT:POKEV+21,8 14050 PRINT" VIC-REGISTER 22[144][146] (ADRESSE 53270[146][144])" 14060 PRINT" - ORIGINALBELEGUNG BIT 0-3 -[144]":PRINT:PRINT:PRINT 14070 PRINT"UNS INTERESSIEREN IN DIESER FOLGE NUR" 14080 PRINT"DIE BITS 0-3, DER REST FOLGT SPAETER " 14085 Z=21:S=0:GOSUB3:PRINT" EXPERIMENTIEREN SIE DOCH MAL!" 14090 PRINT"TASTEN 0-3: SETZEN, 'SHIFT' O-3:LOESCHEN"; 14100 GETW$:IFW$=""ANDX=0THEN14996 14105 IFW$=""THEN14100 14110 IFPEEK(653)THEN14300 14120 IFW$="V"ORW$="Z"ORW$="*"THEN14994 14130 IFASC(W$)<48ORASC(W$)>51THEN14100 14200 SP=ASC(W$)-48:X=1 14210 POKEV+21,PEEK(V+21)OR2^SP:GOSUB40100 14220 POKEV+22,PEEK(V+22)OR2^SP 14230 ONSP+1GOTO14240,14240,14240,14260 14240 Z=13:S=0:GOSUB3:PRINT"DIE BITS 0-2 LEGEN DIE BILDSCHIRMVER-", 14242 PRINT"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197] [144]"; 14245 PRINT"SCHIEBUNG NACH RECHTS ODER LINKS FEST "; 14247 PRINT"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197] [144]";:GOTO14100 14260 Z=13:S=0:GOSUB3:PRINT" BIT 3 IST ZUSTAENDIG FUER DIE ", 14262 PRINT" [197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197] [144]"; 14265 PRINT" BILDSCHIRMBREITE: 40 ODER 38 SPALTEN "; 14267 PRINT" [197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197] [144]";:GOTO14100 14290 GOTO14100 14300 IFASC(W$)<33ORASC(W$)>48THEN14100 14310 IFASC(W$)>35ANDASC(W$)<>48THEN14100 14400 X=1:SP=ASC(W$)-32:IFSP>4THENSP=0 14410 POKEV+21,PEEK(V+21)AND(255-2^SP):GOSUB40200 14420 POKEV+22,PEEK(V+22)AND(255-2^SP) 14430 ONSP+1GOTO14240,14240,14240,14260 14990 GOSUB60000 14992 GOTO14995 14994 GOSUB60010 14995 RETURN 14996 Z=18:S=0:GOSUB3:PRINT"[205][205][165][157][157][183]";:FORT=0TO300:NEXT 14997 Z=18:S=0:GOSUB3:PRINT"[144]  [157][157] ";:FORT=0TO200:NEXT:GOTO14100 15000 PRINTZ$"[144]":V=53248:FORI=1TO15STEP2:POKEV+I,30:NEXT 15005 FORI=39TO46:POKEV+I,0:NEXT 15010 PRINT"NOCH MEHR VOM VIC ...":PRINT:PRINT 15020 FOR J=7TO0STEP-1:J$=STR$(J):J$=RIGHT$(J$,1) 15030 PRINT"[156][181] [182][157][157][157][157][157][204][185][185][185][186][157][157][157][157]2^"J$"[145][145][144]";:GOSUB40200:NEXTJ:PRINT:PRINT:PRINT 15040 FORI=1TO07STEP2:POKEV+I,99:NEXT:POKEV+21,15 15050 PRINT" VIC-REGISTER [156]32[144][146] (ADRESSE [156]53280[146][144])" 15060 PRINT" - AKTUELLE BELEGUNG BIT 0-3 -[144]":PRINT:PRINT:PRINT 15070 PRINT"UNS INTERESSIEREN AUCH DIESMAL NUR DIE" 15080 PRINT"BITS 0-3, DER REST IST OHNE FUNKTION" 15085 Z=21:S=0:GOSUB3:PRINT" EXPERIMENTIEREN SIE DOCH MAL!" 15090 PRINT"TASTEN 0-3: SETZEN, 'SHIFT' O-3:LOESCHEN"; 15100 GETW$:IFW$=""ANDX=0THEN15996 15105 IFW$=""THEN15100 15110 IFPEEK(653)THEN15300 15120 IFW$="V"ORW$="Z"ORW$="*"THEN15994 15130 IFASC(W$)<48ORASC(W$)>51THEN15100 15200 SP=ASC(W$)-48:X=1 15210 POKEV+21,PEEK(V+21)OR2^SP:GOSUB40100 15220 POKEV+32,PEEK(V+32)OR2^SP 15230 Z=13:S=6:GOSUB3:PRINT"FARBE = [157][157][157][157]";PEEK(V+32)-240;"[146] [157][157][157][157][157][144][146]" 15240 Z=15:S=0:GOSUB3:PRINT"DIESE ADRESSE BESTIMMT DIE RAHMENFARBE "; 15250 PRINT"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][144]", 15260 PRINT" SIE HABEN GESETZT: [157][157][157][157][157][157][157]";FA$(PEEK(V+32)-240);" [157] 15270 [153]"";:[129]I[178]0[164]17:[153]" CMDVAL";:[130]:[153]"STOP"; 15290 [137]15100 15300 [139][198](W$)[179]33[176][198](W$)[177]48[167]15100 15310 [139][198](W$)[177]35[175][198](W$)[179][177]48[167]15100 15400 X[178]1:SP[178][198](W$)[171]32:[139]SP[177]4[167]SP[178]0 15410 [151]V[170]21,[194](V[170]21)[175](255[171]2[174]SP):[141]40200 15420 [151]V[170]32,[194](V[170]32)[175](255[171]2[174]SP) 15430 [137]15230 15990 [141]60000 15992 [137]15995 15994 [141]60010 15995 [142] 15996 Z[178]18:S[178]0:[141]3:[153]"(null)(null)FNCMDCMDUSR";:[129]T[178]0[164]300:[130] 15997 Z[178]18:S[178]0:[141]3:[153]"STOP  CMDCMD ";:[129]T[178]0[164]200:[130]:[137]15100 16000 [153]Z$"STOP":V[178]53248:[129]I[178]1[164]15[169]2:[151]V[170]I,30:[130] 16005 [129]I[178]39[164]46:[151]V[170]I,0:[130] 16010 [153]"FUER'S ERSTE DAS LETZTE VOM VIC ...":[153]:[153] 16020 [129] J[178]7[164]0[169][171]1:J$[178][196](J):J$[178][201](J$,1) 16030 [153]"DEFINT ABSCMDCMDCMDCMDCMD(null)POSPOSPOSSQRCMDCMDCMDCMD2^"J$"ONONSTOP";:[141]40200:[130]J:[153]:[153]:[153] 16040 [129]I[178]1[164]07[169]2:[151]V[170]I,99:[130]:[151]V[170]21,15 16050 [153]" VIC-REGISTER DEF33STOPWAIT (ADRESSE DEF53281WAITSTOP)" 16060 [153]" - AKTUELLE BELEGUNG BIT 0-3 -STOP":[153]:[153]:[153] 16070 [153]"AUCH HIER SIND NUR DIE BITS 0-3 " 16080 [153]"INTERESSANT, DER REST IST OHNE FUNKTION." 16085 Z[178]21:S[178]0:[141]3:[153]" EXPERIMENTIEREN SIE DOCH MAL!" 16090 [153]"TASTEN 0-3: SETZEN, 'SHIFT' O-3:LOESCHEN"; 16100 [161]W$:[139]W$[178]""[175]X[178]0[167]16996 16105 [139]W$[178]""[167]16100 16110 [139][194](653)[167]16300 16120 [139]W$[178]"V"[176]W$[178]"Z"[176]W$[178]"*"[167]16994 16130 [139][198](W$)[179]48[176][198](W$)[177]51[167]16100 16200 SP[178][198](W$)[171]48:X[178]1 16210 [151]V[170]21,[194](V[170]21)[176]2[174]SP:[141]40100 16220 [151]V[170]33,[194](V[170]33)[176]2[174]SP 16230 Z[178]13:S[178]6:[141]3:[153]"FARBE = CMDCMDCMDCMD";[194](V[170]33)[171]240;"WAIT CMDCMDCMDCMDCMDSTOPWAIT" 16240 Z[178]15:S[178]0:[141]3:[153]"DIESE ADRESSE BESTIMMT DIE HINTERGRUND- "; 16250 [153]"VALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALSTOP", 16260 [153]"FARBE. SIE HABEN GESETZT: CMDCMDCMDCMDCMDCMDCMD";FA$([194](V[170]33)[171]240);" CMDCMDCMDCMD" 16270 [153]"";:[129]I[178]0[164]24:[153]" CMDVAL";:[130]:[153]"STOP"; 16290 [137]16100 16300 [139][198](W$)[179]33[176][198](W$)[177]48[167]16100 16310 [139][198](W$)[177]35[175][198](W$)[179][177]48[167]16100 16400 X[178]1:SP[178][198](W$)[171]32:[139]SP[177]4[167]SP[178]0 16410 [151]V[170]21,[194](V[170]21)[175](255[171]2[174]SP):[141]40200 16420 [151]V[170]33,[194](V[170]33)[175](255[171]2[174]SP) 16430 [137]16230 16990 [141]60000 16992 [137]16995 16994 [141]60010 16995 [142] 16996 Z[178]18:S[178]0:[141]3:[153]"(null)(null)FNCMDCMDUSR";:[129]T[178]0[164]300:[130] 16997 Z[178]18:S[178]0:[141]3:[153]"STOP  CMDCMD ";:[129]T[178]0[164]200:[130]:[137]16100 17000 [153]Z$"STOP":V[178]53248:V$[178][199](34) 17005 [143]I= 17010 [153]"DAS WAR DER ERSTE TEIL":[153]:[153]"DES INPUT 64WAITSTOP-KURSES" 17020 [153]:[153]V$"BITS & BYTES IM VIDEO-CHIP"V$:[153]:[153] 17030 [153]"IM NAECHSTEN INPUT 64WAITSTOP GEHT'S WEITER MIT:" 17040 [153][163]07)"(null)STOP WIE KOMMEN DIE BUCHSTABEN":[153][163]9)"AUF DEN BILDSCHIRM?" 17050 [153]:[153][163]7)"(null)STOP SELBSTGESTRICKTE SONDERZEICHEN":[153][163]9)"UND DEUTSCHE UMLAUTE" 17060 [153]:[153][163]7)"(null)STOP GEZIELTE BIT-MANIPULATION": 17070 [153][163]9)"MIT "V$"AND"V$" UND "V$"OR"V$ 17080 [153]:[153][163]7)"(null)STOP BILDSCHIRMVERSCHIEBUNG":[153][163]9)"NACH MASS" 17990 [141]60000 17992 [137]17995 17994 [141]60010 17995 [142] 18000 [153]Z$"STOP":V[178]53248 18990 [141]60000 18992 [137]18995 18994 [141]60010 18995 [142] 19000 [153]Z$"STOP":V[178]53248 19990 [141]60000 19992 [137]19995 19994 [141]60010 19995 [142] 20000 [143] Z$ NEU SETZEN 20020 Z$[178]"DER C 64 - BITS & BYTES IM VIDEOCHIP / 1" 20030 Z$[178]Z$[170]"WAIT SEITE"[170][196](IN) 20035 Z$[178]Z$[170]" VOR WAITV ZURUECK WAITZ MENUE WAIT* " 20040 Z$[178]"LOAD"[170]Z$[170]"WAIT" 20100 [142] 25000 [151]V[170]32,0:[151]V[170]33,0:[151]V[170]17,27:[151]V[170]22,200:[151]V[170]21,0 25010 [153]"LOAD BITS & BYTES IM VIDEO-CHIP / TEIL 1 ";:[153]:[153]:[153] 25020 [153]"(null)SYS EINFUEHRUNG SEITE 1";:[153] 25030 [153]"(null)SYS BITS & BYTES":[153]" EIN EXKURS IN":[153]" DAS DUALE ZAHLENSYSTEM"; 25035 [153][163]33)"SEITE 4";:[153] 25040 [153]"(null)SYS VIC-REGISTER 17 SEITE 11";:[153] 25050 [153]"(null)SYS VIC-REGISTER 22 SEITE 14";:[153] 25060 [153]"(null)SYS VIC-REGISTER 32 SEITE 15";:[153] 25070 [153]"(null)SYS VIC-REGISTER 33 SEITE 16";:[153] 25072 [153]"(null)SYS VORSCHAU SEITE 17";: 25075 Z[178]24:S[178]0:[141]3:[153]" SEITENZAHL UND 'RETURN' EINGEBEN WAITSYS"; 25080 CC$[178]"":CC[178]0 25100 Z[178]24:S[178]CC[170]13:[141]3:[161]W$:[139]W$[178]""[175]CC[178]0[167]26000 25102 [139]W$[178]""[167]25100 25105 [139][198](W$)[178]20[175]CC[177]0[167]CC[178]CC[171]1:CC$[178][200](CC$,[195](CC$)[171]1):[153]"CMD ";:[137]25100 25110 [139][198](W$)[178]13[167]25300 25120 [139][198](W$)[179]48[176][198](W$)[177]57[167]25100 25130 [139]CC[177][178]2[167]25100 25140 [139][198](W$)[179][177]20[167][153]"SYS"W$;:CC$[178]CC$[170]W$:CC[178]CC[170]1:[137]25100 25150 [139][198](W$)[178]20[167][153]"CMD ";:[137]25100 25300 [139]CC$[178]""[167]25100 25310 [139][197](CC$)[177]17[167][153]"CMDCMD ";:CC$[178]"":CC[178]0:[137]25100 25320 IN[178][197](CC$):[141]63300:[142] 26000 Z[178]21:S[178]10:[141]3:[153]"CLR(null)(null)FNCMDCMDUSR WAITSYS";:[129]T[178]0[164]300:[130] 26050 Z[178]21:S[178]10:[141]3:[153]"STOP  CMDCMD  ";:[129]T[178]0[164]180:[130]:[137]25100 30000 [143] TITEL 30100 V[178]53248:[151]V[170]32,00:[151]V[170]33,00:[153]"LOADSTOP" 30300 [153]" =TANRIGHT$ = OR=^ ORTAN^ =TANRIGHT$ = = OR=^ =TAN^ ORTAN^" 30400 [153]" (null) (null) (null) (null) (null) (null) (null) (null) (null) (null) (null) (null)" 30500 [153]" -TAN< (null) (null) /TAN^ & -TAN< /=EXP (null) -< /TAN^" 30600 [153]" (null) (null) (null) (null) (null) (null) (null) (null) (null) (null) (null)" 30700 [153]" >TAN(null) > > /TANEXP >TAN(null) > > >TANEXP /TANEXP":[153] 30800 [153] 30900 [153]" (null) THEN(null)(null)FN" 31000 [153]" (null) THEN FN":[153]:[153] 31100 [153]" = = = =TANRIGHT$ =TAN^ (null)TANRIGHT$ (null)TAN^ = = = =TANRIGHT$" 31200 [153]" (null) (null) (null) (null) (null) (null) (null) (null) (null) (null) (null) (null) (null) (null)" 31300 [153]" (null) (null) (null) (null) (null) -< (null) (null) TAN (null) -TAN< (null) -TAN(null)" 31400 [153]" (null) (null) (null) (null) (null) (null) (null) (null) (null) (null) (null) (null) (null)" 31500 [153]" MID$TAN(null) > >TAN(null) >TANEXP MID$TAN(null) MID$TANEXP > > > >" 31600 [153]"VON TEIL 1"; 31700 [153]"J. SEEGER VALVALVALVALVALVAL"; 31800 Z[178]24:S[178]1:[141]3:[153]" WEITER MIT WAITV WAIT"; 32000 BF[178]55296 32100 AF[178]41:[141]39100:[143] B 32200 AF[178]45:[141]39200:[143] I 32300 AF[178]47:[141]39100:[143] T 32400 AF[178]51:[141]39100:[143] S 32500 AF[178]56:[141]39200:[143] $ 32600 AF[178]59:[141]39100:[143] B 32700 AF[178]63:[141]39100:[143] Y 32800 AF[178]67:[141]39100:[143] T 32900 AF[178]71:[141]39100:[143] E 33000 AF[178]75:[141]39100:[143] S 33100 WF[178][187](1)[172]7[170]1:N[178]WF:[141]40300:[129]I[178]BF[170]337[164]BF[170]347:[151]I,WF:[151]I[170]40,WF:[130] 33200 AF[178]482:[141]39100:[143] V 33300 AF[178]486:[141]39200:[143] I 33400 AF[178]488:[141]39100:[143] D 33500 AF[178]492:[141]39100:[143] E 33600 AF[178]496:[141]39100:[143] O 33700 AF[178]501:[141]39200:[143] - 33800 AF[178]504:[141]39100:[143] C 33900 AF[178]508:[141]39100:[143] H 34000 AF[178]512:[141]39200:[143] I 34100 AF[178]514:[141]39100:[143] P 34200 [129]I[178]BF[170]680[164]BF[170]690:[151]I,3:[151]I[170]40,3:[130] 34300 [129]I[178]BF[170]713[164]BF[170]719:[151]I,1:[130] 34400 [129]I[178]BF[170]753[164]BF[170]759:[151]I,2:[130] 34500 [129]I[178]BF[170]960[164]BF[170]999:[151]I,2:[130] 38800 I[178]0 38900 [161]W$:[139]W$[178]"V"[167][142] 38930 I[178]I[170]1:[139]I[179]100[167]38900 38950 [153]"LOAD":AA[178]0:[137]30100 39000 [137]32000 39100 WF[178][181]([187](1)[172]7[170]1):N[178]WF:[141]40300 39150 AF[178]AF[170]BF:[129]I[178]AF[164]AF[170]160[169]40:[151]I,WF:[151]I[170]1,WF:[151]I[170]2,WF:[130] 39190 [129]T[178]0[164]10:[130]:[142] 39200 WF[178][181]([187](1)[172]7[170]1):N[178]WF:[141]40300 39250 AF[178]AF[170]BF:[129]I[178]AF[164]AF[170]160[169]40:[151]I,WF:[130]:[129]T[178]0[164]10:[130]:[142] 40000 [143]TOENE 40100 [143]"BOMM" 40110 T[178]54272:[151]T,117:[151]T[170]1,6:[151]T[170]5,15:[151]T[170]6,90:[151]T[170]24,15 40120 [151]T[170]4,17:[129]M[178]0[164]150:[130]:[151]T[170]4,16:[142] 40200 [143]"BING" 40210 T[178]54272:[151]T[170]7,195:[151]T[170]8,4[172]J[170]30:[151]T[170]12,15:[151]T[170]13,85:[151]T[170]24,15 40220 [151]T[170]11,17:[129]M[178]0[164]50:[130]:[151]T[170]11,16:[142] 40300 [143]TITELTON 40310 T[178]54272:[151]T[170]14,TL(N):[151]T[170]15,TH(N):[151]T[170]19,15:[151]T[170]20,54:[151]T[170]24,15 40315 [139]AA[178]4[167]AA[178]0 40317 [139]AA[178]0[167][151]T[170]4,17 40318 AA[178]AA[170]1 40320 [151]T[170]18,17:[129]M[178]0[164]80:[130]:[151]T[170]18,16:[151]T[170]4,16:[129]M[178]0[164]20:[130] 40399 [142] 49999 [128] 50000 [143] SPRITE BLOCK 11 50010 [129]I[178]704[164]766:[135]D:[151]I,D:[130]I 50020 [131]255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255 50030 [131]255,255,255,255,255,255,255,255 50040 [131]255,255,255,255,255,255,255,255,0,0,0,0,0,0,0,0,0,0,0 50050 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 50100 [143] SPRITE BLOCK 13 50110 [129]I[178]832[164]894:[135]D:[151]I,D:[130]I 50120 [131]198,223,126,198 50121 [131]223,127,198,216 50122 [131]99,198,216,99 50123 [131]254,223,126,254 50124 [131]223,127,198,216 50125 [131]99,198,216,99 50126 [131]198,223,99,198 50127 [131]223,99,0,0 50128 [131]0,0,192,0 50129 [131]1,192,0,3 50130 [131]128,0,71,0 50131 [131]0,206,0,0 50132 [131]220,0,0,248 50133 [131]0,0,240,0 50134 [131]0,254,0,0 50135 [131]252,0,0 50200 [134]FA$(15):[129]I[178]0[164]15:[135]D$:FA$(I)[178]D$:[130] 50210 [131]SCHWARZ,WEISS,ROT,TUERKIS,VIOLETT,GRUEN,BLAU,GELB 50220 [131]ORANGE,BRAUN,HELLROT,GRAU 1,GRAU 2,HELLGRUEN,HELLBLAU,GRAU 3 50300 [143] DATA FUER TITELTON 50310 [129]I[178]1[164]7:[135]D:TL(I)[178]D:[135]D:TH(I)[178]D:[130] 50350 [131]48,11,24,14,195,16,48,11,195,16,24,14,195,16 50900 [142] 60000 [151]204,1:[161]W$:[139]W$[178]""[167]60000 60010 [151]204,1:[139]W$[178]"Z"[167][139]IN[177]0[167]IN[178]IN[171]1:[141]63300:[142] 60020 [139]W$[178]"V"[167]IN[178]IN[170]1:[141]63300:[142] 60030 [139]W$[178]"*"[167][151]V[170]21,0:CC[178]0:CC$[178]"":[141]25000:[142] 60100 [137]60000 63300 [151]V[170]17,27:[151]V[170]21,0:[151]V[170]22,8:[151]V[170]32,15:[151]V[170]33,15:[141]20000 63310 [129]I[178]39[164]46:[151]V[170]I,6:[151]2001[170]I,11:[130]:[151]V[170]23,0:[151]V[170]29,0 63320 [151]V[170]14,32:[151]V[170]12,72:[151]V[170]10,112:[151]V[170]8,152:[151]V[170]6,192:[151]V[170]4,232 63330 [151]V[170]16,2[174]0[170]2[174]1:[151]V[170]2,16:[151]V[170]0,56 63390 [142]